<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in.1 (AOL)</name>
<id>-1</id>
<cardCount>130</cardCount>
<cardID>12297</cardID>
<listID>36859</listID>
<cantModify><false /></cantModify>
<cantDelete><false /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>384</width>
<height>280</height>
</cardSize>
<script>on openStackglobal thePICTsput getresourcelist(PICT) into thePICTspass openStackend openStackon suspendStackif there is a window "Navigator" then close window "Navigator"end suspendStackon resumeStackglobal thePICTsput getresourcelist(PICT) into thePICTspass resumeStackend resumeStackon closeStackif there is a window "Navigator" then close window "Navigator"fixListcountEmCompactStackend closeStack--------------------------------------------------on sortEmglobal lastSortanswer "Sort by:" with "Gender" or "Movies" or "People"put it into lastSortif lastSort is "Gender" then sort background id 2577 by hilite of bg button "Male"if lastSort is "Movies" then sort background id 2577 by bg fld "Movies2"if lastSort is "People" then sort background id 2577 by bg fld "Person2"end sortEmon fixListglobal lastSortput "Updating index listing..."lock screenpush cardsort background id 2577 by bg fld "Person2"sort by hilite of bg btn "Male"put empty into bg fld "List" of card 1repeat with x = 2 to (the number of cards)set cursor to busyput bg fld "Person" of card x into line (x-1) of bg fld "List" of card "List"end repeatif lastSort is "Movies" then sort background id 2577 by bg fld "Movies2"pop cardunlock screenhide msgend fixListon ExportReportput the short name of this stack&&the short date into NUDETEXTask file "Save file as:" with NUDETEXTif it is empty or the result is "Cancel" then exit ExportReportput it into NUDETEXTopen file NUDETEXTwrite NUDETEXT&RETURN&RETURN to file NUDETEXTwrite bg fld "Guide" of card "List" to file NUDETEXTwrite RETURN&RETURN to file NUDETEXTrepeat with x = 2 to the number of cardsset cursor to busywrite bg fld "Person" of card x to file NUDETEXTwrite ": " to file NUDETEXTrepeat with y = 1 to the number of lines in bg fld "Movies" of cd xset cursor to busyget line y of bg fld "Movies" of cd xif the last char of it is RETURN then put empty into the last char of itif y <> (the number of lines in bg fld "Movies" of cd x) then put "; " after itwrite it to file NUDETEXTend repeatwrite RETURN to file NUDETEXTend repeatclose file NUDETEXTbeepend ExportReporton countEmput "Counting instances of nudity..."put zero into CntVarrepeat with x = 2 to the number of cardsadd (the number of lines in bg fld "Movies" of card x) to CntVarput cntVar into bg fld "Nudity Count" of card 1end repeatput " instances of nudity" after bg fld "Nudity Count" of card 1put RETURN before bg fld "Nudity Count" of card 1put "people -" before bg fld "Nudity Count" of card 1put (the number of cards in background "Data") & " " before bg fld "Nudity Count" of card 1hide msgend countEmon CompactStack-- Automatically compact stack if necessaryget the freeSize of this stackif it >= 5000 thenput "Compacting stack..."doMenu "compact stack"end ifshow menubarhide msgend CompactStack</script>
